home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iproj / ques1.frm < prev    next >
Text File  |  1995-09-06  |  3KB  |  114 lines
  1. VERSION 2.00
  2. Begin Form QUES1 
  3.    BackColor       =   &H00800080&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Question 1"
  6.    ClientHeight    =   2670
  7.    ClientLeft      =   1710
  8.    ClientTop       =   1830
  9.    ClientWidth     =   5325
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   3075
  13.    Left            =   1650
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MDIChild        =   -1  'True
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   2670
  19.    ScaleWidth      =   5325
  20.    Top             =   1485
  21.    Width           =   5445
  22.    Begin CommandButton Command1 
  23.       Caption         =   "HELP!"
  24.       Height          =   495
  25.       Index           =   3
  26.       Left            =   2760
  27.       TabIndex        =   5
  28.       Top             =   1200
  29.       Width           =   2055
  30.    End
  31.    Begin CommandButton Command2 
  32.       Cancel          =   -1  'True
  33.       Caption         =   "Cancel"
  34.       Default         =   -1  'True
  35.       Height          =   495
  36.       Left            =   1920
  37.       TabIndex        =   4
  38.       Top             =   1920
  39.       Width           =   1695
  40.    End
  41.    Begin CommandButton Command1 
  42.       Caption         =   "I survive"
  43.       Height          =   495
  44.       Index           =   2
  45.       Left            =   480
  46.       TabIndex        =   0
  47.       Top             =   1200
  48.       Width           =   2055
  49.    End
  50.    Begin CommandButton Command1 
  51.       Caption         =   "Moderately skilled"
  52.       Height          =   495
  53.       Index           =   1
  54.       Left            =   2760
  55.       TabIndex        =   3
  56.       Top             =   600
  57.       Width           =   2055
  58.    End
  59.    Begin CommandButton Command1 
  60.       Caption         =   "Highly skilled"
  61.       Height          =   495
  62.       Index           =   0
  63.       Left            =   480
  64.       TabIndex        =   2
  65.       Top             =   600
  66.       Width           =   2055
  67.    End
  68.    Begin Label Label2 
  69.       BackColor       =   &H00800080&
  70.       Caption         =   "Describe your ability to use a computer:"
  71.       FontBold        =   -1  'True
  72.       FontItalic      =   0   'False
  73.       FontName        =   "MS Sans Serif"
  74.       FontSize        =   12
  75.       FontStrikethru  =   0   'False
  76.       FontUnderline   =   0   'False
  77.       ForeColor       =   &H00FFFFFF&
  78.       Height          =   375
  79.       Left            =   240
  80.       TabIndex        =   1
  81.       Top             =   120
  82.       Width           =   6015
  83.    End
  84. End
  85.  
  86. Sub Command1_Click (index As Integer)
  87.  
  88. Question1 = ""
  89. Select Case index
  90.     Case 0
  91.         Question1 = "1"
  92.     Case 1
  93.         Question1 = "2"
  94.     Case 2
  95.         Question1 = "3"
  96.     Case 3
  97.         Question1 = "4"
  98. End Select
  99. If Question1 <> "" Then
  100.     ques2.Show
  101. Else
  102.     MsgBox ("Please answer the current question before moving on!")
  103. End If
  104. End Sub
  105.  
  106. Sub Command2_Click ()
  107.     response = MsgBox("Do you really want to close without sending in your responses?", 1, "Are you sure?")
  108.     If response = 1 Then
  109.         End
  110.     End If
  111.  
  112. End Sub
  113.  
  114.